--[[
    编码: M3-00-02
    名称: public-获取数据类中定义的编码和分组信息
    作者：HAN  
    日期：2025-2-14

    级别： 项目
    
    函数： Print_WMSBasisClsCode

    功能:


    更改记录:
 
--]]

m3 = require( "oi_base_mobox" )

function Print_WMSBasisClsCode ( strLuaDEID ) 
    local nRet, strRetInfo, n
    local strCondition, strSetSQL

    local attrs = {"CN_S_ID","CN_S_GROUP","CN_S_CODE","CN_N_ORDER"}
    nRet, strRetInfo = mobox.queryTable( strLuaDEID, "OI_SYS_DATA_CLASS", lua.table2str(attrs), 1000)

    if ( nRet ~= 0 ) then
        lua.Error( strLuaDEID, debug.getinfo(1), "获取数据类定义失败!"..strRetInfo )
    end

    if ( strRetInfo == '' ) then return end
    local data_info = json.decode( strRetInfo )
    strRetInfo = ""
    for n = 1, #data_info do

        if ( data_info[n].CN_S_GROUP ~= '巨星' ) then
            local str_cls_info = '{cls_id = "'..data_info[n].CN_S_ID..'",group = "'..data_info[n].CN_S_GROUP..'",'..
                                 'code = "'..data_info[n].CN_S_CODE..'", order = '..lua.StrToNumber( data_info[n].CN_N_ORDER ).."}"
            if ( strRetInfo ~= '' ) then strRetInfo = strRetInfo.."," end
            strRetInfo = strRetInfo..str_cls_info
        end
    end

    lua.Debug( strLuaDEID, debug.getinfo(1), "WMS Basis ClsInfo -->", "{"..strRetInfo.."}" )
end